Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Computadora.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\COMPUTER.WMF")
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked Then
            Computadora.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\COMPUTER.WMF")
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked Then
            Computadora.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\PCOMPUTR.WMF")
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked Then
            Computadora.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\LAPTOP2.WMF")
        End If
    End Sub

    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked Then
            Computadora.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\LAPTOP1.WMF")
        End If
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            Telefono.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\ANSWMACH.WMF")
            Telefono.Show()

        Else
            Telefono.Hide()

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            Fotocopiadora.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\COPYMACH.WMF")
            Fotocopiadora.Show()
        Else
            Fotocopiadora.Hide()
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked Then
            Maquina.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\TYPEWRTR.WMF")
            Maquina.Show()

        Else
            Maquina.Hide()
        End If
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedItem.Equals("Monitor") Then
            Perifericos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\MONITOR.WMF")
        ElseIf ListBox1.SelectedItem.Equals("Teclado") Then
            Perifericos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\CALCULTR.WMF")
        ElseIf ListBox1.SelectedItem.Equals("Disco duro") Then
            Perifericos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\DISK525.WMF")
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem.Equals("Efectivo") Then
            Pagos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\MONYSTK2.WMF")
        ElseIf ComboBox1.SelectedItem.Equals("Tarjeta") Then
            Pagos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\POSTCARD.WMF")
        ElseIf ComboBox1.SelectedItem.Equals("Cheque") Then
            Pagos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\CHECK.WMF")
        ElseIf ComboBox1.SelectedItem.Equals("Letras") Then
            Pagos.Load("C:\Archivos de programa\Microsoft Visual Studio\COMMON\Graphics\Metafile\Business\ALPHTRPN.WMF")
        End If
    End Sub
End Class
